home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / RexxIntuition / Scripts / Scripts.zoo / Msg.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  360 b   |  13 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=rxi_GetWindow('Show Req',,,,,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5.  
  6. /* Present an Automessage to the user. This one only has an OK (returns 1) */
  7. ans=rxi_MsgOne(wind,'This is an automessage')
  8.  
  9. /* Print out the returned answer to the CLI */
  10. SAY ans
  11.  
  12. wind=rxi_EndWindow(wind)
  13.